home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Basic / Star Trek Folder / STAR TREK.BOOT < prev   
Encoding:
Text File  |  1985-11-11  |  4.1 KB  |  67 lines  |  [TEXT/MSBB]
  1.  
  2. 1 '
  3. 2 ' CREATED  10/27/1984
  4. 3 '
  5. 10 CLS:CALL HIDECURSOR
  6. 15 DIM T(200)
  7. 20 X=20:Y=30
  8. 30 R%(0)=Y:R%(1)=X-5:R%(2)=Y+11:R%(3)=X+100
  9. 40 CALL FRAMEROUNDRECT(VARPTR(R%(0)),50,10)
  10. 50 R%(0)=Y-3:R%(1)=X+35:R%(2)=Y:R%(3)=X+65
  11. 60 CALL FRAMEROUNDRECT(VARPTR(R%(0)),20,4)
  12. 70 R%(0)=Y+10:R%(1)=X+30:R%(2)=Y+13:R%(3)=X+70
  13. 80 CALL FRAMEROUNDRECT(VARPTR(R%(0)),20,40)
  14. 100 LINE (X+40,Y+13)-(X+45,Y+23):LINE (X+60,Y+13)-(X+70,Y+23)
  15. 110 LINE (X+30,Y+25)-(X+30,Y+35):LINE (X+30,Y+25)-(X+45,Y+23):LINE -(X+70,Y+23):LINE -(X+115,Y+24)
  16. 120 LINE (X+30,Y+35)-(X+45,Y+37):LINE-(X+120,Y+36):LINE-(X+115,Y+24)
  17. 130 LINE (X+90,Y+23)-(X+115,Y+2):LINE (X+98,Y+23)-(X+122,Y+2)
  18. 140 R%(0)=Y-6:R%(1)=X+93:R%(2)=Y+3:R%(3)=X+170
  19. 150 CALL FRAMEROUNDRECT(VARPTR(R%(0)),85,9)
  20. 160 GET(X-5,Y-8)-(X+180,Y+37),T:PUT(X-5,Y-8),T
  21. 200 PUT (160,Y+60),T
  22. 210 CALL MOVETO(120,200):PRINT"SUPER STAR TREK- MS-BASIC  BY JIM PONDER"
  23. 220 BEEP:FOR C=0 TO 7000:NEXT
  24. 280 CLEAR,25000
  25. 285 Z$="OK"
  26. 290 COMMON Z$
  27. 300 CLS
  28. 310 PRINT:PRINT:PRINT:PRINT TAB(20);"DO YOU REQUIRE INSTRUCTIONS (Y/N) ";:BEEP:A$="":WHILE A$="":A$=INKEY$:WEND:
  29. 315 IF A$="N" OR A$="N" THEN 450
  30. 320 CLS:PRINT TAB(10);"INSTRUCTIONS FOR SUPER STAR TREK":PRINT TAB(10);"MS-BASIC VERSION 1.01.00"
  31. 325 PRINT TAB(10);"BY JIM PONDER 10/17/1984"
  32. 330 PRINT:PRINT"  YOU ARE THE CAPTAIN OF THE USS ENTERPRISE, AND IT IS YOUR MISSION TO"
  33. 335 PRINT"SEEK AND DESTROY ALL KLINGON BATTLE CRUISERS IN THE GALAXY. THE ENTERPRISE"
  34. 337 PRINT"IS YOUR TOOL FOR DESTROYING THE KLINGONS."
  35. 340 PRINT:PRINT"        YOU ARE GIVEN A CERTAIN NUMBER OF STARDATES IN WHICH YOUR MISSION":PRINT"MUST BE COMPLETED IN."
  36. 345 PRINT:PRINT"        YOU CAN USE PHASERS OR PHOTON TORPEDOES TO DESTROY THE KLINGONS."
  37. 350 PRINT"WITH THE PHASERS, YOU DETERMINE THE AMOUNT OF POWER TO FIRE AT ALL "
  38. 355 PRINT"OF THE KLINGONS IN THE QUADRANT. LET'S SAY FOR EXAMPLE THAT YOU GIVE THE ORDER"
  39. 357 PRINT"TO FIRE 100 UNITS OF ENERGY ON 4 KLINGON SHIPS. THE 100 UNITS ARE"
  40. 360 PRINT"DISTRIBUTED BETWEEN THE 4 SHIPS.":GOSUB 500:PRINT"WHEN USING PHOTON TORPEDOES, YOU MUST DETERMINE A DIRECTION IN"
  41. 365 PRINT"WHICH TO FIRE YOUR TORPEDOES.":PRINT:PRINT"   BEFORE YOU CAN DESTROY THE KLINGONS, YOU MUST BE ABLE TO MANEUVER"
  42. 370 PRINT"YOUR SHIP ABOUT IN SPACE. WHEN MOVING YOUR SHIP, YOU MUST FIRST GIVE A"
  43. 375 PRINT"DIRECTION IN WHICH TO MOVE, AND SECOND, A DISTANCE TO GO. THE DISTANCE IS"
  44. 377 PRINT"DETERMINED BY GIVING A WARP FACTOR VALUE. THE DISTANCE TRAVELED BY A"
  45. 380 PRINT"WARP FACTOR OF ONE IS EQUAL TO ABOUT 1 FULL QUADRANT. WHEN MANEUVERING,"
  46. 385 PRINT"YOU MAY ACCIDENTLY RUN INTO A STAR OR, (HEAVEN HELP YOU), A KLINGON SHIP."
  47. 387 PRINT"WHEN THIS HAPPENS, YOU ARE SIMPLY TOLD OF YOUR ERROR."
  48. 390 PRINT"TO DOCK AT A STARBASE, ALL THAT IS NECESSARY IS TO MOVE ALONGSIDE OF THE"
  49. 395 PRINT"STARBASE AND STOP WITHIN 1 SECTOR OF THE BASE. THERE YOU RESUPPLY YOUR"
  50. 397 PRINT"ENERGY, TORPEDOES, AND TECHNICIANS CAN EFFECT REPAIRS TO YOUR SHIP IF"
  51. 400 PRINT"YOU GIVE THE ORDER.":PRINT:GOSUB 500:PRINT"   THE LIBRARY COMPUTER IS AT YOUR DISPOSAL"
  52. 405 PRINT"TO PERFORM MANY USEFUL FUNCTIONS TO AID YOU IN YOUR MISSION."
  53. 407 PRINT"FROM THE COMPUTER YOU CAN RECEIVE GALAXY MAPS, DISTACE AND"
  54. 410 PRINT"DIRECTIONS TO QUADRANTS, STARBASES, AND KLINGONS. UP TO DATE REPORTS"
  55. 415 PRINT"OF YOUR MISSION SO FAR ARE OBTAINABLE, AS IS A RECORD OF THE GALAXY AS":PRINT"TO WHAT THINGS ARE IN WHICH QUADRANT."
  56. 420 PRINT"      TO LEARN WHAT THINGS, (KLINGONS, STARBASES, AND EVEN STARS), ARE"
  57. 425 PRINT"IN A QUADRANT, YOU MUST EITHER GO TO THE QUADRANT AND RUN A SHORT RANGE "
  58. 427 PRINT"SENSOR SCAN, OR USE A LONG RANGE SENSOR SCAN. WHEN YOU RUN A LONG RANGE"
  59. 430 PRINT"SENSOR SCAN, YOU WILL SEE SOMETHING LIKE THIS...":PRINT"      103  003  005":PRINT"   013  005  305"
  60. 435 PRINT"      202  004  009":PRINT:PRINT"THE HUNDREDS TELL HOW MANY KLINGONS, THE TENS HOW MANY STARBASES, AND"
  61. 437 PRINT"THE ONES HOW MANY STARS ";
  62. 440 PRINT"THERE ARE IN THE QUADRANT."
  63. 445 GOSUB 500
  64. 450 PRINT:PRINT"IT IS NOW TIME FOR YOU TO BEGIN YOUR LIFE AS A CAPTAIN.":R%(0)=0:R%(1)=0:R%(2)=320:R%(3)=520
  65. 455 FOR XX=0 TO 1000:NEXT XX:CALL PAINTRECT(VARPTR(R%(0))):BEEP:CHAIN "MAIN PROGRAM":END
  66. 500 A$="":PRINT"HIT A KEY TO CONTINUE..";:WHILE A$="":A$=INKEY$:WEND:PRINT:CLS:RETURN
  67.